home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 139
/
139side1.d64
/
ls briefs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
399b
|
11 lines
63000 dv=peek(186):ifdv<8thendv=8
63010 delay=116:poke53280,0:poke53281,0:poke1023,dv
63130 a$="briefs 139"
63230 fori=dvtodv:close2:open2,i,2:close2:ifstthen63250
63240 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then63260
63250 next:print""a$" not found!":poke186,8:end
63260 q$=chr$(34):poke646,peek(53281):print"";
63270 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
63280 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
63290 poke635,145:poke636,13:poke198,6